home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / DEF / Process / Harmonize / len-harmonize2 < prev    next >
Lisp/Scheme  |  1998-10-23  |  2KB  |  47 lines
  1. len-harmonize2 mel1 len1 mel2 len2 
  2.                                     fold zone tonality swaps dissonances
  3.  
  4. This is length-sensitive extension to the filter-harmonize2. It enables to give also length patterns associated to two input melodies. len-harmonize2 has two outputs which must be bound to atoms using multiple-value-setq.
  5.  
  6. (setq mel1 '(a b c d a b c d a b c d a b c d))
  7. (setq mel2 '(a b d b e b f b b e b b d b b a s g))
  8. (setq len1 '(1/16 1/8 1/16 1/4))
  9. (setq len2 '(1/16))
  10.  
  11. (multiple-value-setq (hmel1 hmel2)
  12.     (len-harmonize2 mel1 len1 mel2 len2 
  13.                12
  14.                '1/1
  15.                (activate-tonality (harmonic-minor c 2))
  16.                '((4 4))
  17.                '((1 2 6 8 10 11))))
  18.  
  19. hmel1 --> (a b c = a b c d)
  20. hmel2 --> (a b d = e b f b = e b = d b b a)
  21.  
  22. Note that the zone controls how long the length patterns are to be run, and controls the recycling of the input patterns when necessary. Try with different zone lengths to get the effect.
  23.  
  24. After harmonisation it is often needed to smooth out the output a bit with find-change and filter-deactivate. Also symbol-fold can be handy in keeping the material more consistent. These are needed mostly when you don't exactly know beforehand what the input melodies are, if they have lots of repeats, or are in wide range of symbols.
  25.  
  26. (setq melody-1-mat 
  27.   (symbol-fold 14 7 (filter-deactivate 4 60 (find-change hmel1))))
  28. (setq melody-2-mat 
  29.   (symbol-fold 14 7 (filter-deactivate 4 60 (find-change hmel2))))
  30.  
  31. Other possibly useful functions
  32.  
  33. len-harmonize2 performs its operation with the aid of expand-with-len and compress-with-len. These functions can be useful in other purposes, too.
  34.  
  35. expand-with-len takes a symbol pattern, length pattern, zone length and the minimum length (minimum quantisation value). The result is a symbol pattern which is expanded using the rhythm to last the zone using the minimum length to determine the number of repeats of each symbol.
  36.  
  37. (expand-with-len '(a b c d) '(1/16. 1/8) '1/1 '1/32)
  38. --> (a a a b b b b c c c d d d d a a a b b b b c c c d d d d a a a b b b b)
  39.  
  40. compress-with-len takes a symbol pattern, length pattern and minimum length and picks up the right symbols that match the rhythm.
  41.  
  42. (compress-with-len (expand-with-len '(a b c d) '(1/16. 1/8) '1/1 '1/32)
  43.                    '(1/16. 1/8)
  44.                    '1/32)
  45. --> (a b c d a b c d a b)
  46.  
  47.